home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / dlg / DLG_Correct.lha / DLG_Correct.rexx < prev    next >
OS/2 REXX Batch file  |  1995-06-21  |  723b  |  37 lines
  1. /* restore filenote to msg */
  2. /* jon d. godfrey, re0273  */
  3.  
  4. call open(d,'T:dlg_correct',R)
  5.   file = readln(d)
  6.   from = readln(d)
  7.   junk = readln(d)
  8.   note = readln(d)
  9.  
  10.   if eof(d)=1 then do
  11.  
  12.     address command "c:date >ram:date"
  13.     call open(a,'ram:date',R)
  14.       data=readln(a)
  15.     call close(a)
  16.  
  17.     parse var data dayname' 'date' 'time
  18.     dayname = left(dayname,3)
  19.     parse var date day'-'month'-'year
  20.     time = left(time,5)
  21.     newdate = dayname' 'day' 'month' 'year' 'time
  22.  
  23.     note = 'Created: 'newdate', by 'from
  24.  
  25.   end
  26.   else do
  27.  
  28.     note = right(note,length(note)-2)
  29.  
  30.   end
  31.  
  32. call close(d)
  33.  
  34. operation = 'c:filenote '||file||' "'note'"'
  35. address command operation
  36. address command "c:delete >NIL: t:dlg_correct"
  37.